10 REM****** LISTING 4/2 **********
12 :
20 Z=0
25 READ PLZ$,ST$
30 IF PLZ$="@" THEN 45
35 Z=Z+1
40 GOTO 25
45 DIM PLZ$(Z),ST$(Z)
50 RESTORE
55 FOR I=1 TO Z
60 READ PLZ$(I),ST$(I)
65 NEXT I
67 :
70 T=0
75 INPUT "NAME DER STADT";NST$
80 FOR L=LEN(NST$) TO 2 STEP-1
83 :
85 FOR K=1 TO Z
90 IF LEFT$(NST$,L) = LEFT$(ST$(K),L) THEN PRINT PLZ$(K),ST$(K):T=1
95 NEXT K
98 :
100 IF T=1 THEN 70
105 NEXT L
110 PRINT"STADT NICHT IN DER LISTE"
998 :
999 :
1000 DATA 8470,NABBURG,5441,NACHTSHEIM
1005 DATA 6509,NACK,6506,NACKENHEIM
1010 DATA 8590,NAGEL,7270,NAGOLD,2061,NAHE
1015 DATA 2121,NAHRENDORF,8674,NAILA
2000 DATA @,@